home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #3 / Commodore_Disk_User_Vol.4_3_1991_-.d64 / perm irq.ldr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  806b  |  17 lines
  1. 10 rem -- permanent irq header
  2. 20 data173,020,003,141,000,192,173,021,003,141
  3. 30 data001,192,120,169,157,141,020,003,169,003
  4. 40 data141,021,003,088,096,162,039,169,002,157:rem 002 = red characters
  5. 50 data040,216,157,000,216,189,184,003,157,000
  6. 60 data004,169,032,157,040,004,202,016,234,108
  7. 70 data000,192,032,032,032,032,032,032,019,008:rem 032=text start: "[5spc]sh
  8. 80 [131]009,006,020,061,016,001,021,019,005,032:[143] "ift=pause[spc]
  9. 90 data032,032,032,032,032,032,019,016,001,003:rem "[6spc]spac
  10. 100 [131]005,061,017,021,009,020,032,032,032,032:[143] "e=quit[4spc]
  11. 110 data032,032,173,000,192,141,020,003,173,001:rem "[2spc]" text=40 chars only
  12. 120 data192,141,021,003,096
  13. 125 print"[147]":poke53280,14:poke646,14:poke53281,6
  14. 130 forx=900to1004:ready:c=c+y:pokex,y:next:ifc<>7161thenprint"data error!":end
  15. 140 rem
  16. 150 rem -- sys900 turns the permanent header on, sys992 turns it off.
  17.